home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / share / Dos / VARIOS / pascal / SWAG9605.DDD / 0082_ShellExecute in Delphi2-NT.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-05-31  |  2.2 KB  |  62 lines
  1. (*
  2. > David Swaddle <100657.155@CompuServe.COM> wrote:
  3. >
  4. > >Can anyone suggest a method of running an MS DOS applications
  5. > >(yuck) from within Delphi 2 where the program can be forced to
  6. > >wait for the DOS process to finish before resuming??
  7. >
  8. > >I know that this sounds like an odd request, but I have a legacy
  9. > >EXE file without the source and it runs a vital part of a system
  10. > >that I'm writing.  Previously I used the TExecFile component, but
  11. > >I don't have the source for this.  I have tried using the
  12. > >ShellExecute API call and this works fine, except that I can't
  13. > >find a way of waiting to see if the new process has terminated.
  14. >
  15. > >I'm not very au fait with the Win32 API yet, so any help
  16. > >appreciated.
  17. > This works in 1.0 and should work in 2.0
  18.  
  19.  
  20. > var
  21. >    AppHandle : THandle;
  22. > 
  23. > begin
  24. >    AppHandle := ShellExecute(Application.MainForm.Handlle, 'OPEN',
  25. > EXEName, Params, 'C:\PROGRAMS', SW_SHOWNORMAL);
  26. > 
  27. >    if AppHandle <= 32 then { Error Running Program}
  28. >       raise Exception.Create('There was a problem Running the App');
  29. > 
  30. >    while (GetModuleUsage(AppHandle) = 0) do
  31. >       Application.ProcessMessages;
  32. > end;
  33. >
  34. > Brad Huggins
  35.  
  36. That code will not work in Delphi 2.0 because the GetModuleUsage function
  37. doesn't exist under Win32.  You can get this behavior, however, using the
  38. Win32 CreateProcess function.  Here is a function I use to wait for another
  39. program to finish execution:
  40. *)
  41.  
  42. function CreateProcessAndWait(const AppPath, AppParams: String;
  43.                               Visibility: word): DWord;
  44. var
  45.   SI: TStartupInfo;
  46.   PI: TProcessInformation;
  47.   Proc: THandle;
  48. begin
  49.   FillChar(SI, SizeOf(SI), 0);
  50.   SI.cb := SizeOf(SI);
  51.   SI.wShowWindow := Visibility;
  52.   if not CreateProcess(PChar(AppPath), PChar(AppParams), Nil, Nil, False,
  53.                    Normal_Priority_Class, Nil, Nil, SI, PI) then
  54.     raise Exception.CreateFmt('Failed to execute program.  Error Code %d',
  55.                               [GetLastError]);
  56.   Proc := PI.hProcess;
  57.   CloseHandle(PI.hThread);
  58.   if WaitForSingleObject(Proc, Infinite) <> Wait_Failed then
  59.     GetExitCodeProcess(Proc, Result);
  60.   CloseHandle(Proc);
  61. end;
  62.